home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dblrou1r / count.frm < prev    next >
Text File  |  1998-11-02  |  2KB  |  80 lines
  1. VERSION 5.00
  2. Begin VB.Form Countfrm 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "321GO"
  6.    ClientHeight    =   7200
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   9600
  10.    Icon            =   "Count.frx":0000
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   480
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   640
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    WindowState     =   2  'Maximized
  18.    Begin VB.Timer Timer1 
  19.       Interval        =   1000
  20.       Left            =   0
  21.       Top             =   0
  22.    End
  23.    Begin VB.Label lblCount 
  24.       Alignment       =   2  'Center
  25.       BackStyle       =   0  'Transparent
  26.       Caption         =   "3"
  27.       BeginProperty Font 
  28.          Name            =   "Impact"
  29.          Size            =   240
  30.          Charset         =   0
  31.          Weight          =   400
  32.          Underline       =   0   'False
  33.          Italic          =   0   'False
  34.          Strikethrough   =   0   'False
  35.       EndProperty
  36.       ForeColor       =   &H000000FF&
  37.       Height          =   5865
  38.       Left            =   2400
  39.       TabIndex        =   0
  40.       Top             =   720
  41.       Width           =   5295
  42.    End
  43. End
  44. Attribute VB_Name = "Countfrm"
  45. Attribute VB_GlobalNameSpace = False
  46. Attribute VB_Creatable = False
  47. Attribute VB_PredeclaredId = True
  48. Attribute VB_Exposed = False
  49. ' THIS form... Its just a count down to playing the game! Nothing special about it...
  50.  
  51. Private Sub Form_Load()
  52.       lblCount.Top = (GetSystemMetrics(SM_CYSCREEN) / 2) - (lblCount.Height / 2)
  53.       lblCount.Left = (GetSystemMetrics(SM_CXSCREEN) / 2) - (lblCount.Width / 2)
  54. End Sub
  55.  
  56. Private Sub Timer1_Timer()
  57.       If lblCount.Caption = "3" Then
  58.             lblCount.ForeColor = RGB(255, 0, 0)
  59.             lblCount.Caption = "2"
  60.             Exit Sub
  61.       End If
  62.       If lblCount.Caption = "2" Then
  63.             lblCount.ForeColor = RGB(255, 255, 0)
  64.             lblCount.Caption = "1"
  65.             Exit Sub
  66.       End If
  67.       If lblCount.Caption = "1" Then
  68.             lblCount.ForeColor = RGB(0, 255, 0)
  69.             lblCount.Caption = "GO"
  70.             Exit Sub
  71.       End If
  72.       
  73.       If lblCount.Caption = "GO" Then
  74.             lblCount.ForeColor = RGB(255, 0, 0)
  75.             lblCount.Caption = "3"
  76.             Unload Me
  77.             Exit Sub
  78.       End If
  79. End Sub
  80.